home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / setpar / setparn2.frm < prev    next >
Text File  |  1995-05-07  |  2KB  |  64 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   2760
  5.    ClientLeft      =   435
  6.    ClientTop       =   4125
  7.    ClientWidth     =   4035
  8.    Height          =   3165
  9.    Left            =   375
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   2760
  12.    ScaleWidth      =   4035
  13.    Top             =   3780
  14.    Width           =   4155
  15.    Begin CommandButton Btn2 
  16.       Caption         =   "Click Me!"
  17.       Height          =   375
  18.       Left            =   180
  19.       TabIndex        =   0
  20.       Top             =   180
  21.       Width           =   1515
  22.    End
  23.    Begin Timer Timer1 
  24.       Interval        =   750
  25.       Left            =   1440
  26.       Top             =   1140
  27.    End
  28.    Begin Label Label1 
  29.       Alignment       =   2  'Center
  30.       Caption         =   "Frame's in Form1"
  31.       Height          =   195
  32.       Left            =   1800
  33.       TabIndex        =   1
  34.       Top             =   180
  35.       Width           =   2115
  36.    End
  37. End
  38. Option Explicit
  39.  
  40. Sub Btn2_Click ()
  41.   Select Case Form1.Shape1.Shape
  42.    Case Round
  43.         Form1.Shape1.Shape = Square
  44.    Case Square
  45.         Form1.Shape1.Shape = Rnd_Sqre
  46.    Case Rnd_Sqre
  47.         Form1.Shape1.Shape = Round
  48.   End Select
  49. End Sub
  50.  
  51. Sub Timer1_Timer ()
  52.   Select Case Form1.Shape1.BackColor
  53.    Case Yellow
  54.       Form1.Shape1.BackColor = Blue
  55.    Case Blue
  56.       Form1.Shape1.BackColor = Green
  57.    Case Green
  58.       Form1.Shape1.BackColor = Red
  59.    Case Red
  60.       Form1.Shape1.BackColor = Yellow
  61.   End Select
  62. End Sub
  63.  
  64.